home *** CD-ROM | disk | FTP | other *** search
/ IRIX 6.2 Development Libraries / SGI IRIX 6.2 Development Libraries.iso / dist / complib.idb / usr / share / catman / p_man / cat3 / complib / HTRIDI.z / HTRIDI
Text File  |  1996-03-14  |  3KB  |  67 lines
  1.  
  2.  
  3.  
  4. ____HHHHTTTTRRRRIIIIDDDDIIII((((3333FFFF))))                                                        ____HHHHTTTTRRRRIIIIDDDDIIII((((3333FFFF))))
  5.  
  6.  
  7.  
  8. NNNNAAAAMMMMEEEE
  9.      HTRIDI, SHTRIDI  -  EISPACK routine.  This subroutine reduces a COMPLEX
  10.      HERMITIAN matrix to a real symmetric tridiagonal matrix using unitary
  11.      similarity transformations.
  12.  
  13.  
  14. SSSSYYYYNNNNOOOOPPPPSSSSYYYYSSSS
  15.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee  hhhhttttrrrriiiiddddiiii((((nnnnmmmm,,,, nnnn,,,, aaaarrrr,,,, aaaaiiii,,,, dddd,,,, eeee,,,, eeee2222,,,, ttttaaaauuuu))))
  16.           iiiinnnntttteeeeggggeeeerrrr          nnnnmmmm,,,, nnnn
  17.           ddddoooouuuubbbblllleeee pppprrrreeeecccciiiissssiiiioooonnnn aaaarrrr((((nnnnmmmm,,,,nnnn)))),,,,aaaaiiii((((nnnnmmmm,,,,nnnn)))),,,,dddd((((nnnn)))),,,,eeee((((nnnn)))),,,,eeee2222((((nnnn)))),,,,ttttaaaauuuu((((2222,,,,nnnn))))
  18.  
  19.           ssssuuuubbbbrrrroooouuuuttttiiiinnnneeee sssshhhhttttrrrriiiiddddiiii((((nnnnmmmm,,,, nnnn,,,, aaaarrrr,,,, aaaaiiii,,,, dddd,,,, eeee,,,, eeee2222,,,, ttttaaaauuuu))))
  20.           iiiinnnntttteeeeggggeeeerrrr          nnnnmmmm,,,, nnnn
  21.           rrrreeeeaaaallll             aaaarrrr((((nnnnmmmm,,,,nnnn)))),,,,aaaaiiii((((nnnnmmmm,,,,nnnn)))),,,,dddd((((nnnn)))),,,,eeee((((nnnn)))),,,,eeee2222((((nnnn)))),,,,ttttaaaauuuu((((2222,,,,nnnn))))
  22.  
  23.  
  24.  
  25. DDDDEEEESSSSCCCCRRRRIIIIPPPPTTTTIIIIOOOONNNN
  26.      On INPUT
  27.  
  28.      NNNNMMMM must be set to the row dimension of two-dimensional array parameters
  29.      as declared in the calling program dimension statement.
  30.  
  31.      NNNN is the order of the matrix.
  32.  
  33.      AAAARRRR and AI contain the real and imaginary parts, respectively, of the
  34.      complex hermitian input matrix.  Only the lower triangle of the matrix
  35.      need be supplied.  On OUTPUT
  36.  
  37.      AAAARRRR and AI contain information about the unitary trans- formations used in
  38.      the reduction in their full lower triangles.  Their strict upper
  39.      triangles and the diagonal of AR are unaltered.
  40.  
  41.      DDDD contains the diagonal elements of the tridiagonal matrix.
  42.  
  43.      EEEE contains the subdiagonal elements of the tridiagonal matrix in its last
  44.      N-1 positions.  E(1) is set to zero.
  45.  
  46.      EEEE2222 contains the squares of the corresponding elements of E. E2 may
  47.      coincide with E if the squares are not needed.
  48.  
  49.      TTTTAAAAUUUU contains further information about the transformations. Calls
  50.      PYTHAG(A,B) for sqrt(A**2 + B**2).  Questions and comments should be
  51.      directed to B. S. Garbow, APPLIED MATHEMATICS DIVISION, ARGONNE NATIONAL
  52.      LABORATORY
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.                                                                         PPPPaaaaggggeeee 1111
  64.  
  65.  
  66.  
  67.